﻿! double grille  /modified by VL 2/28/94/
! a=int. width, b=int. height,
! c=int. frame thickn., d=int. frame width,
! e=no. of horiz. panes, f=no. of vert. panes

if e-1<0.001 then 10
if a-e*d<-0.001 or b-f*d<-0.001 then 100
x=(a-(e-1)*d)/e
  for v=1 to e-1
    addx x*v+d*(v-1)     
    block d,b,c
    del 1
  next v
y=(b-(f-1)*d)/f
  for v=1 to e
    addx x*(v-1)+d*(v-1)
      for w=1 to f-1
        addy y*w+d*(w-1)
        block x,d,c
        del 1
     next w
  del 1
  next v
end
10:
if e<1 then 20
if b-f*d<-0.001 then 100
y=(b-(f-1)*d)/f
  for v=1 to f-1
     addy y*v+d*(v-1)
     block a,d,c
     del 1
  next v
20: end
100: print "to many panes"
exit
